home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_3.ZIP / LKDATA.C < prev    next >
C/C++ Source or Header  |  1990-07-18  |  3KB  |  100 lines
  1. /* lkdata.c */
  2.  
  3. /*
  4.  * (C) Copyright 1989,1990
  5.  * All Rights Reserved
  6.  *
  7.  * Alan R. Baldwin
  8.  * 721 Berkeley St.
  9.  * Kent, Ohio  44240
  10.  */
  11.  
  12. #include <stdio.h>
  13. #include <string.h>
  14. #include <alloc.h>
  15. #include "aslink.h"
  16.  
  17. int    inpfil;
  18. int    cfile;
  19. int    radix;
  20. int    line;
  21. int    page;
  22. int    lop;
  23. int    pass;
  24. int    oflag;
  25. int    mflag;
  26. int    xflag;
  27. int    pflag;
  28. int    hilo;
  29. char    *ip;
  30. char    ib[NINPUT];
  31.  
  32. char    *_abs_    = { ".  .ABS." };
  33.  
  34. int    rtcnt;
  35. addr_t    rtval[NTXT];
  36. int    rtflg[NTXT];
  37.  
  38. struct    sym    *symhash[NHASH];
  39. struct    lfile    *startp;
  40. struct    lfile    *linkp;
  41. struct    lfile    *lfp;
  42. struct    lfile    *filep;
  43. struct    lfile    *cfp;
  44. struct    head    *headp;
  45. struct    head    *hp;
  46. struct    area    *areap;
  47. struct    area    *ap;
  48. struct    areax    *axp;
  49. struct    base    *basep;
  50. struct    base    *bsp;
  51. struct    globl    *globlp;
  52. struct    globl    *gsp;
  53. struct    sdp    sdp;
  54. struct    rerr    rerr;
  55.  
  56. FILE    *sfp;
  57. FILE    *ofp;
  58. FILE    *mfp;
  59.  
  60. char    ctype[128] = {
  61. /*NUL*/    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  62. /*BS*/    ILL,    SPACE,    ILL,    ILL,    SPACE,    ILL,    ILL,    ILL,
  63. /*DLE*/    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  64. /*CAN*/    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,    ILL,
  65. /*SPC*/    SPACE,    ETC,    ETC,    ETC,    LETTER,    BINOP,    BINOP,    ETC,
  66. /*(*/    ETC,    ETC,    BINOP,    BINOP,    ETC,    BINOP,    LETTER,    BINOP,
  67. /*0*/    DGT2,    DGT2,    DGT8,    DGT8,    DGT8,    DGT8,    DGT8,    DGT8,
  68. /*8*/    DGT10,    DGT10,    ETC,    ETC,    BINOP,    ETC,    BINOP,    ETC,
  69. /*@*/    ETC,    LTR16,    LTR16,    LTR16,    LTR16,    LTR16,    LTR16,    LETTER,
  70. /*H*/    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  71. /*P*/    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  72. /*X*/    LETTER,    LETTER,    LETTER,    ETC,    ETC,    ETC,    BINOP,    LETTER,
  73. /*`*/    ETC,    LTR16,    LTR16,    LTR16,    LTR16,    LTR16,    LTR16,    LETTER,
  74. /*h*/    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  75. /*p*/    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,    LETTER,
  76. /*x*/    LETTER,    LETTER,    LETTER,    ETC,    BINOP,    ETC,    ETC,    ETC
  77. };
  78.  
  79. #if    CASE_SENSITIVE
  80. #else
  81. char    ccase[128] = {
  82. /*NUL*/    '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  83. /*BS*/    '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  84. /*DLE*/    '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  85. /*CAN*/    '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  86. /*SPC*/    '\040',    '\041',    '\042',    '\043',    '\044',    '\045',    '\046',    '\047',
  87. /*(*/    '\050',    '\051',    '\052',    '\053',    '\054',    '\055',    '\056',    '\057',
  88. /*0*/    '\060',    '\061',    '\062',    '\063',    '\064',    '\065',    '\066',    '\067',
  89. /*8*/    '\070',    '\071',    '\072',    '\073',    '\074',    '\075',    '\076',    '\077',
  90. /*@*/    '\100',    '\141',    '\142',    '\143',    '\144',    '\145',    '\146',    '\147',
  91. /*H*/    '\150',    '\151',    '\152',    '\153',    '\154',    '\155',    '\156',    '\157',
  92. /*P*/    '\160',    '\161',    '\162',    '\163',    '\164',    '\165',    '\166',    '\167',
  93. /*X*/    '\170',    '\171',    '\172',    '\133',    '\134',    '\135',    '\136',    '\137',
  94. /*`*/    '\140',    '\141',    '\142',    '\143',    '\144',    '\145',    '\146',    '\147',
  95. /*h*/    '\150',    '\151',    '\152',    '\153',    '\154',    '\155',    '\156',    '\157',
  96. /*p*/    '\160',    '\161',    '\162',    '\163',    '\164',    '\165',    '\166',    '\167',
  97. /*x*/    '\170',    '\171',    '\172',    '\173',    '\174',    '\175',    '\176',    '\177'
  98. };    
  99. #endif
  100.